home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / gambo / toilet1.dxr / 00033.ls < prev    next >
Encoding:
Text File  |  1995-02-13  |  1.4 KB  |  84 lines
  1. on startMovie
  2.   global i
  3.   cursor(4)
  4.   set the volume of sound 2 to 180
  5.   set the timeoutScript to "mTimeOut"
  6.   set the visible of sprite 48 to 0
  7.   set i to 1
  8. end
  9.  
  10. on mIdle
  11.   puppetSprite(48, 1)
  12.   if the timer >= 120 then
  13.     mchangetext()
  14.     startTimer()
  15.     updateStage()
  16.   else
  17.     nothing()
  18.   end if
  19. end
  20.  
  21. on mchangetext
  22.   if the castNum of sprite 48 = 65 then
  23.     set the castNum of sprite 48 to 66
  24.   else
  25.     if the castNum of sprite 48 = 66 then
  26.       set the castNum of sprite 48 to 67
  27.     else
  28.       set the castNum of sprite 48 to 65
  29.       set the visible of sprite 48 to 1
  30.     end if
  31.   end if
  32. end
  33.  
  34. on mtimeout
  35.   set the timeoutScript to EMPTY
  36.   set the mouseDownScript to EMPTY
  37.   puppetSprite(48, 0)
  38.   cursor(4)
  39.   sound fadeOut 1, 30
  40.   go("Fade")
  41. end
  42.  
  43. on ossan
  44.   global i
  45.   set the visible of sprite 48 to 0
  46.   set the castNum of sprite 48 to 65
  47.   set i to 1 + i
  48.   if i > 6 then
  49.     ossanangry()
  50.   else
  51.     set n to random(5)
  52.     if n = 1 then
  53.       cursor(200)
  54.       go("panic1")
  55.     else
  56.       if n = 2 then
  57.         cursor(200)
  58.         go("panic2")
  59.       else
  60.         if n = 3 then
  61.           cursor(200)
  62.           go("panic3")
  63.         else
  64.           if n = 4 then
  65.             cursor(200)
  66.             go("panic4")
  67.           else
  68.             if n = 5 then
  69.               cursor(200)
  70.               go("panic5")
  71.             end if
  72.           end if
  73.         end if
  74.       end if
  75.     end if
  76.   end if
  77. end
  78.  
  79. on ossanangry
  80.   cursor(200)
  81.   set the timeoutLapsed to 0
  82.   go("angry")
  83. end
  84.